home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / misc / o-z / x-windows / amiwindupd / install_amiwinupd < prev    next >
Encoding:
Text File  |  1995-12-02  |  5.4 KB  |  233 lines
  1. (procedure check-one-file-version
  2.  (set fpath (tackon @default-dest fname))
  3.  (if (exists fpath) (
  4.   (set amiwin-version (getversion fpath))
  5.   (if (not(= amiwin-version fversion))
  6.    (abort (cat "Your file " fname " does not have the correct version\n"));
  7.   )
  8.  ))
  9. ) 
  10.  
  11. (procedure check-amiwin-version
  12.  (set amiwin-version (getversion (tackon @default-dest "bin/AmiWin")))
  13.  (if (not(= amiwin-version 131088))
  14.   (abort "You do not have AmiWin 2.16 installed.\n");
  15.  )
  16.  
  17.  (working)
  18.  (set n 0)
  19.  (while (set fname (select n
  20.   "bin/mkfontdir" "bin/oclock" "bin/twm" "bin/xauth" "bin/xcalc"
  21.   "bin/xclock" "bin/xdpyinfo" "bin/xhost" "bin/xkill" "bin/xlsclients"
  22.   "bin/xset" "bin/xsetroot" "bin/xwininfo" "libs/xau.library"
  23.   "libs/xaw.library" "libs/xfont.library" "libs/xice.library"
  24.   "libs/xlib.library" "libs/xmu1.library" "libs/xmu2.library"
  25.   "libs/xsm.library" "libs/xt.library" "libs/xtrans.library"
  26.   "xle/mitmisc.xle" "xle/multibuf.xle" "xle/shape.xle"
  27.   "xle/sync.xle" "xsd/aga-1.xsd" "xsd/aga-8.xsd" "xsd/rtg-1.xsd"
  28.   "xtp/amitcp.xtp" "xtp/as225.xtp" "")) (
  29.   (set fversion (select n
  30.    131088 131072 131086 131072 131088
  31.    131072 131084 131084 131084 131086
  32.    131084 131084 131084 131072
  33.    131088 131088 131083
  34.    131086 131083 131086
  35.    131072 131088 131083
  36.    131072 131072 131072
  37.    131072 131086 131088 131086
  38.    131072 131072))
  39.   (check-one-file-version)
  40.   (set n (+ n 1))
  41.  ))
  42. )
  43.  
  44. (procedure select-destination-directory
  45.  (set @default-dest
  46.   (askdir
  47.    (prompt "Select the directory where you have "
  48.     "installed AmiWin 2.16 demo. The default is "
  49.     "probably correct.")
  50.    (help "Please specify the directory where you have "
  51.     "installed AmiWin 2.16 demo. The default is "
  52.     "the X11: directory, i.e. the likely place of "
  53.     "your AmiWin installation.")
  54.    (default "X11:")
  55.   )
  56.  )
  57. )  
  58.  
  59. (procedure patchonefile
  60.  (copyfiles
  61.   (source (tackon srcdir srcfile))
  62.   (dest "T:")
  63.   (newname "oldfile")
  64.  )
  65.  
  66.  (working)
  67.  (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:newfile \"-p" pchfile "\" T:oldfile"))
  68.  
  69.  (copyfiles
  70.   (source "T:newfile")
  71.   (dest srcdir)
  72.   (newname srcfile)
  73.  )
  74.  
  75.  (delete "T:oldfile")
  76.  (delete "T:newfile")
  77. )
  78.  
  79. ;;;; Start
  80.  
  81. (set app-name "AmiWin 2.22demo")
  82.  
  83. (complete 0)
  84.  
  85. (set source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
  86.  (expandpath @icon))
  87. )
  88.  
  89. (select-destination-directory)
  90.  
  91. (check-amiwin-version)
  92.  
  93. (complete 10)
  94.  
  95. (copyfiles
  96.  (source (tackon source-dir "x11/Help"))
  97.  (dest (tackon @default-dest "Help"))
  98.  (all)
  99. )
  100.  
  101. (complete 12)
  102.  
  103. (if (not (exists (tackon @default-dest "xsr")))
  104.  (makedir (tackon @default-dest "xsr"))
  105. )
  106.  
  107. (copyfiles
  108.  (source (tackon source-dir "x11/xsr"))
  109.  (dest (tackon @default-dest "xsr"))
  110.  (all)
  111. )
  112.  
  113. (complete 14)
  114.  
  115. (copyfiles
  116.  (source (tackon source-dir "x11/libs/xdmcpintl.library"))
  117.  (dest (tackon @default-dest "libs"))
  118. )
  119.  
  120. (complete 16)
  121.  
  122. (if (not (exists (tackon @default-dest "man")))
  123.  (makedir (tackon @default-dest "man"))
  124. )
  125.  
  126. (copyfiles
  127.  (source (tackon source-dir "x11/man"))
  128.  (dest (tackon @default-dest "man"))
  129.  (all)
  130. )
  131.  
  132. (complete 18)
  133.  
  134. (copyfiles
  135.  (source (tackon source-dir "x11/xle/amiwinmisc.xle"))
  136.  (dest (tackon @default-dest "xle"))
  137. )
  138.  
  139. (complete 20)
  140.  
  141. (copyfiles
  142.  (source (tackon source-dir "x11/xle/lbx.xle"))
  143.  (dest (tackon @default-dest "xle"))
  144. )
  145.  
  146. (complete 22)
  147.  
  148. (copyfiles
  149.  (source (tackon source-dir "x11/xsd/cybergraphx-8.xsd"))
  150.  (dest (tackon @default-dest "xsd"))
  151. )
  152.  
  153. (complete 24)
  154.  
  155. (copyfiles
  156.  (source (tackon source-dir "x11/xsd/graffity-8.xsd"))
  157.  (dest (tackon @default-dest "xsd"))
  158. )
  159.  
  160. (complete 26)
  161.  
  162. (copyfiles
  163.  (source (tackon source-dir "x11/xsd/hrg-8.xsd"))
  164.  (dest (tackon @default-dest "xsd"))
  165. )
  166.  
  167. (complete 28)
  168.  
  169. (copyfiles
  170.  (source (tackon source-dir "x11/xsd/picasso-l-8.xsd"))
  171.  (dest (tackon @default-dest "xsd"))
  172. )
  173.  
  174. (complete 30)
  175.  
  176. (copyfiles
  177.  (source (tackon source-dir "x11/xsd/retina-8.xsd"))
  178.  (dest (tackon @default-dest "xsd"))
  179. )
  180.  
  181. (complete 32)
  182.  
  183. (copyfiles
  184.  (source (tackon source-dir "x11/xsk/is.xsk"))
  185.  (dest (tackon @default-dest "xsk"))
  186. )
  187.  
  188. (complete 34)
  189.  
  190. (set srcdir (tackon @default-dest "bin"))
  191. (set srcfile "AmiWin")
  192. (set pchfile (tackon source-dir "x11/bin/AmiWin.pch"))
  193. (patchonefile)
  194.  
  195. (complete 36)
  196.  
  197. (set n 0)
  198. (while (set srcfile (select n
  199.  "mkfontdir" "oclock" "twm" "xauth" "xcalc" "xclock" "xdpyinfo"
  200.  "xhost" "xkill" "xlsclients" "xset" "xsetroot" "xwininfo"
  201.  "xau.library" "xaw.library" "xfont.library" "xice.library"
  202.  "xlib.library" "xmu1.library" "xmu2.library" "xsm.library"
  203.  "xt.library" "xtrans.library" "mitmisc.xle" "multibuf.xle"
  204.  "shape.xle" "sync.xle" "aga-1.xsd" "aga-8.xsd" "rtg-1.xsd"
  205.  "amitcp.xtp" "as225.xtp" "")) (
  206.  (set reldir (select n
  207.   "bin" "bin" "bin" "bin" "bin" "bin" "bin" "bin"
  208.   "bin" "bin" "bin" "bin" "bin" "libs" "libs" "libs"
  209.   "libs" "libs" "libs" "libs" "libs" "libs" "libs"
  210.   "xle" "xle" "xle" "xle" "xsd" "xsd" "xsd" "xtp" "xtp"))
  211.  
  212.  (set srcdir (tackon @default-dest reldir))
  213.  
  214.  (if (exists (tackon srcdir srcfile)) (
  215.   (set pchfile (tackon (tackon (tackon source-dir "x11") reldir) (select n
  216.    "mkfontdir.pch" "oclock.pch" "twm.pch" "xauth.pch" "xcalc.pch"
  217.    "xclock.pch" "xdpyinfo.pch" "xhost.pch" "xkill.pch"
  218.    "xlsclients.pch" "xset.pch" "xsetroot.pch" "xwininfo.pch"
  219.    "xau.pch" "xaw.pch" "xfont.pch" "xice.pch" "xlib.pch"
  220.    "xmu1.pch" "xmu2.pch" "xsm.pch" "xt.pch" "xtrans.pch"
  221.    "mitmisc.pch" "multibuf.pch" "shape.pch" "sync.pch"
  222.    "aga-1.pch" "aga-8.pch" "rtg-1.pch" "amitcp.pch"
  223.    "as225.pch")
  224.     ))
  225.    (patchonefile)
  226.  ))
  227.  (set n (+ n 1))
  228.  (complete (+ 36 (* n 2)))
  229. ))
  230.  
  231. (exit "Installation of the update from AmiWin 2.16 demo to "
  232.  "AmiWin 2.22 demo is finished.")
  233.